home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 4: GNU Archives / Linux Cubed Series 4 - GNU Archives.iso / gnu / binutils.7 / binutils / binutils-2.7 / ld / testsuite / config / default.exp
Encoding:
Text File  |  1996-07-04  |  2.6 KB  |  124 lines
  1. # Basic expect script for LD Regression Tests
  2. #   Copyright (C) 1993,1994 Free Software Foundation
  3. #
  4. # This file is free software; you can redistribute it and/or modify
  5. # it under the terms of the GNU General Public License as published by
  6. # the Free Software Foundation; either version 2 of the License, or
  7. # (at your option) any later version.
  8. # 
  9. # This program is distributed in the hope that it will be useful,
  10. # but WITHOUT ANY WARRANTY; without even the implied warranty of
  11. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12. # GNU General Public License for more details.
  13. # 
  14. # You should have received a copy of the GNU General Public License
  15. # along with this program; if not, write to the Free Software
  16. # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  17. #
  18. # Written by Jeffrey Wheat (cassidy@cygnus.com)
  19. #
  20.  
  21. if ![info exists ld] then {
  22.     set ld [findfile $objdir/ld.new $objdir/ld.new [transform ld]]
  23. }
  24.  
  25. if ![info exists as] then {
  26.     set as [findfile $base_dir/../gas/as.new $base_dir/../gas/as.new [transform as]]
  27. }
  28.  
  29. if ![info exists nm] then {
  30.     set nm [findfile $base_dir/../binutils/nm.new $base_dir/../binutils/nm.new [transform nm]]
  31. }
  32.  
  33. if ![info exists objdump] then {
  34.     set objdump [findfile $base_dir/../binutils/objdump]
  35. }
  36.  
  37. if ![info exists objcopy] then {
  38.     set objcopy [findfile $base_dir/../binutils/objcopy]
  39. }
  40.  
  41. if ![file isdirectory tmpdir] {catch "exec mkdir tmpdir" status}
  42.  
  43. # load the utility procedures
  44. load_lib ld.exp
  45.  
  46. #
  47. # ld_version -- extract and print the version number of ld compiler (GCC)
  48. #
  49. proc ld_version {} {
  50.     global ld
  51.     default_ld_version $ld
  52. }
  53.  
  54. #
  55. # ld_exit -- just a stub for ld
  56. #
  57. proc ld_exit {} {
  58. }
  59.  
  60. #
  61. # ld_start 
  62. #    relink the linker
  63. #
  64. proc ld_start { ld target } {
  65.     #
  66. }
  67.  
  68. #
  69. # ld_relocate 
  70. #    link an object using relocation
  71. #
  72. proc ld_relocate { ld target objects } {
  73.     default_ld_relocate $ld $target $objects
  74. }
  75.  
  76. #
  77. # ld_link 
  78. #    link a program using ld
  79. #
  80. proc ld_link { ld target objects } {
  81.     default_ld_link $ld $target $objects
  82. }
  83.  
  84. #
  85. # ld_simple_link 
  86. #    link a program using ld, without including any libraries
  87. #
  88. proc ld_simple_link { ld target objects } {
  89.     default_ld_simple_link $ld $target $objects
  90. }
  91.  
  92. #
  93. # ld_compile 
  94. #    compile an object using $cc
  95. #
  96. proc ld_compile { cc source object } {
  97.     default_ld_compile $cc $source $object 
  98. }
  99.  
  100. #
  101. # ld_assemble
  102. #    assemble a file
  103. #
  104. proc ld_assemble { as source object } {
  105.     default_ld_assemble $as $source $object 
  106. }
  107.  
  108. #
  109. # ld_nm
  110. #    run nm on a file
  111. #
  112. proc ld_nm { nm object } {
  113.     default_ld_nm $nm $object
  114. }
  115.  
  116. #
  117. # ld_exec
  118. #    execute ithe target
  119. #
  120. proc ld_exec { target output } {
  121.     default_ld_exec $target $output
  122. }
  123.  
  124.